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H 
EDTSWFENDINS = end of a series of inserts 16-S 4 VAX-11 Bliss-32 V4.0-7 1 
14- se0-1984 96: $e: {9 DISKSVMSMASTER: ce Lot sre WFENDINS.BLI; pqae (1) 


3 1 1 ZTITLE “EDTSWFENDINS = end of a series of inserts’ 

5 ¢ § MODULE EDTSWFENDINS ( ! End of a series of ins | 
5 Z 0Dz ow = ‘v04-000' ' File: WFENDING BLI Edit: JBS1008 | 
2 009 BEGIN 

: § boo 1 i een Tee ReReReeReReeeeeeeeeReHeeereeeeeeeeeereeeeteereeeneeeeeeeeeeeeeeeeeenee 
3 8 008 1 !* + 
3 9 $08 1 !® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY ® 
3 10 010 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
: oN OO1] 1 js ALL RIGHTS RESERVED. e | 
; i $Oi8 1 is hg fe “Nech Is pyre see UNDER A LICENSE AND MAY BE USED AND ag © 
3 14 0014 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE ~ -'s THE * 
3 15 015 1 ! INCLUSION OF THE ABOVE pid NOTICE. THIS SOFTWARE OR OTHER * 
; 16 B18 1 !® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
3 17 01 1 !* QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY ® 

; + 4 ! it TRANSFERRED. : 

: 20 0020 1 is THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 

; $3 0021 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

4 $8 4 ¢ : + CORPORATION. : 

6 .* 

; 24 iets 1 !® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 

3 25 0025 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 

BBE 

: 28 0028 1 i eeeeeeeeeeeeeeeeeReeeeReeReeeeeeeeeeeeeeeeeeeeeeeeneneeeeeeeeeneeeeeeeeeeeese 

5 9 0029 1! 

Che oR le 
; 3 4 : ! FACILITY: EDT -=- The DEC Standard Editor 

; 34 0034 | ABSTRACT: | 
; 36 0036 End of a series of inserts. 

; 38 sit ' ENVIRONMENT: Runs at any access mode - AST reentrant 

; 40 9040 ! AUTHOR: Bob Kushlis, CREATION DATE: October 16, 1978 

: 4 004¢ i MODIFIED BY: 

3 6 9064 1 | 1-001 - Original. DJS 23-Feb-1981. This module was created by 

s 6§ 045 1! Sabres ting routine EDTSSEND iNS tr98 module EDTWF. 

; «646 0046 1 ! 1-002 - Regular ze headers. JBS 16-Mar-1981 

. OF 0047 1 ! 1-003 = Remove division from Line number coleutottene . 14-Jan-1982 

; 648 0048 1 ! 1-004 - Add error check for Line number too Large. 4-Feb-198 

:; «649 0049 1 ! 1-005 = Pass count by address instead of b val ue. re 7-Feb-198 

; 20 0050 1! 1~208 = Modify to use new 48 bit macros. STS 01-Oct-19 

3 1 BR 83 1! 1. - Modify to use new compare Line number macros. STS 20- gt-1982 

; 2¢ Bae6 ! 1-008 - inereve the appearance of the listing. JBS 20-Jun-19 

; 54 0054 1 
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Declarations ~8ep-1984 95: ge: \? 
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XSBTTL ‘Declarations’ 
; TABLE OF CONTENTS: 


REQUIRE ‘EDTSRC: TRAROUNAM' ; 


FORWARD ROUTINE 
EDTSSEND_INS : NOVALUE; 


INCLUDE FILES: 
REQUIRE "EDTSRC:EDTREQ': 


MACROS: 

} NONE 

EQUATED SYMBOLS: 
NONE 

} OWN STORAGE: 

NONE 

EXTERNAL REFERENCES: 
: In the routine 


m= 
= 


oT. OSRCSWFENDINS. BLI; rise 


a 
BlLiss-32 V4.0-7 Page 3| 
SM ) 


EDTSWFENDINS EDTSWFENDINS = end of a series of inserts 16-Sep-1984 VAX=-11 
he 605 EDTSSEND_INS = end a series of inserts 12-8 08- 1 3be 6: 98: i DISKSVMSMASTER: th i’ sre WFENDINS.BLI;1 (3 
; 96 $32 ! ZSBTITL "EDTSSEND_INS = end a series of inserts’ 
; 661 1 GLOBAL ROUTINE EDTSSEND_INS ! End a series of inserts 
: s 666 1 : NOVALUE = 
3 665 1 
3 664 1 !44 
3 3¢ 665 1 ! FUNCTIONAL DESCRIPTION: 
: 96 66 1 | | 
os Or 667 1! This routine is called at the end of a series of insertions. A line number 
; #98 0668 1! increment is a ae sft? the new Lines are resequenced. At this time, the 
; WW 0669 1! yorieote EDTSSL is the Ay of Lines which were inserted, 
: 100 670 1! ED TSS, Wk STARTNO. ~~ MD TSstG NXTLNO are the Line numbers of 
; 101 671 1! the Lines pth and following the inserted lines. The Line number increment 
3 138 0672 1! is determined as follows: If the difference between START and NXT is greater 
; 10 0675 1! than the number of Lines to be inserted, then find the closest power of ten 
> 104 0674 1! and increment in units of (1*that Poel be MS gen ing with STARTNO. If there 
3 109 75 1! is not enough room, use an increment of . resequence the lines; this 
3 138 of : will cause subsequent Lines to be eeialaeta: : 
; 108 067 1 ! FORMAL PARAMETERS: ‘ 
3 109 0679 1! ‘ 
; 110 0680 1! NONE ° 
: 617211 0681 1! ° 
3; 1 0682 1 ! IMPLICIT INPUTS: ° 
s. FY 0685 1! ‘ 
3 116 0684 1! EDTSSL_WK_INSCNT : 
: 115 0685 1! EDTS$$L_WK_NXTLNO 
3 116 0686 1! EDTSS$L_WK_STARTNO 
3117 0687 1! EDTSS$L_LNO_ZE 
; 118 0688 1! EDTSS$L_LNNO_BIG 
3. 6119 0689 1! EDTS$L_LNOO™ 
: 120 0690 1! 
s tel 0691 1 =! IMPLICIT OUTPUTS: 
iS ; 0692 1! 
we 0693 1! NONE 
3; 126 0694 1! 
: 125 0695 1 ! ROUTINE VALUE: 
: 126 0696 1! 
s Ver 0697 1! NONE 
; 128 0698 1! 
H 144 0699 1 ! SIDE EFFECTS: 
; 130 0700 1! 
sos 0701 1! Calls EDTS$$RSEQ 
'>en 702 1! 
; 13 703 1 !-- 
: «134 0704 1 
3 133 Bo BEGIN 
3; 137 0709 exteoee Oe ROUTINE 
: 138 re VLN, 
; 139 709 ED TSSRD~ CUNEN : NOVALUE,. | 
: 140 9 EDTSSRSEQ : NOVALUE; 
r 166 ay EXTERNA , 
: 14 71 EDTS$$L_LNO BIG : LN BLOCK ' Maximum Line number 
: 144 0714 EDTSSL~ WK_TNSCNT : CN_BLOCK, i The count of inserted Lines 
3: «6145 0715 EDTSS$L_-WK-NXTLNO : LN_BLOCK, ! Line number following an insert 
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EDTSWFENDINS = end of a series of inserts 16-Sep-1 
EDTSSEND_INS = end a series of inserts 14-Sep-1 
071 EDTSSL_WK_STARTNO : LN_BLOCK, 
7) EDTSS$L_LNO_ZERO : LN BCOrk 
O71 EDT$SL-LNOO : LNOVECTOR (14); 


LOCAL 
DIF: LN_BLOCK, 
INC : LNZBLOCK, 
DIVISOR = LN_BLOCK; 


14 
Don't do anything if count is zero. 


14 
Position to the first inserted Line. 


EDTS$RD_CURLN (); 
MOVELINE (EDTS$L_LNO_ZERO, INC); 


BEGIN 
EDTS$RD_PRVLN (); 
ADDLINE” (NUMBER_ONE, INC); 


E 

N 

3 END 

UNTIL LINNOEQL (INC, EDTS$L_WK_INSCNT); 

‘4 

4 

3 

r 

3 

r 

4 

4 

4 

4 


the inserted text. 


wl p SOE SL (DIF, EDTS$L_LNO_ZERO) 
F sates (EDTS$L_LNOO (5), INC) 


WN —OOONAUNE WN O OO NAU EWN $$ O ODNAU EWN SOOO NOUS WN OVOOaNO ww 


BEGIN 
MOVELINE (EDT$S$L_LNOO (5), INC); 


INCR I FROM 0 TO 4 DO 


ELS 

'¢ 
: Compute an increment for numbering the Lines. 
76 BEGIN 
ue ADDLINE (NUMBER_ONE, EDTSSL_WK_INSCNT, DIVISOR); 
re IF (CMPLNO (DIVISOR, DIF) GTR 0) 
76 MOVELINE (EDTS$L_LNOO, INC) i 
76 LSE 


Be PeiSiH? bi SkSumsnaStensceots sacSwrENDINS.eLI 54 


Line number of Line preceding an insert 


IF LINNOEQL (EDTS$L_LNO_ZERO, EDTSSL_WK_INSCNT) THEN RETURN; 


! Compute the difference in Line numbers between the Lines surrounding 


SUBLINE (EDTSSL_WK_STARTNO, EDTSSL_WK_NXTLNO, DIF); 
; If this is zero, we must be at the end of the buffer; choose an increment of 1.00000. 


' # of lines + 1 
If there are more Lines to 


insert than room available 
use .00001 as increment 


Assume INC=1.00000 


' unless another is found 


4 
(3) 


7 
EDTSWFENDINS EDTSWFENDINS = end of a series of inserts 18-Se -1984 02:06:10 VAX-11 Bliss-32 V4.0-7 5 
104-000 EDTSSEND_INS = end a series of inserts 13780871984 95:98:34 DISKSVMSMASTER: aS i’ske WFENDINS.BLI; A aps (3) 
03 77 BEGIN 
04 $75 1+ 
05 077 i Find the closest power of ten to the quotient of DIF/DIVISOR which is Less than 10**5 
4 ore i _by increasing the divisor by a power of ten and comparing to DIF. 
08 OF MULTLINE (EDTS$L_LNOO C1], DIVISOR, DIVISOR); 
B78 IF (CMPLNO (DIVISOR, DIF) GTR 0) 
07 THEN 


BEGIN 
MOVELINE (EDTS$L_LNOO C.1J, INC); 
EXITLOOP; 


END; 


END; 
'¢ 
i Get the number of the first new Line. If the maximum Line number is 
: exceeded, make the start number equal to the largest possible Line number. 
ADDLINE (INC, EDTSSL_WK_STARTNO, EDTSSL_WK_STARTNO, MAX); 
IF ((.MAX NEQ 0) OR (CMPLNO (EDTSSL_WK_STARTNO, EDTS$L_LNO_BIG) GTR 0)) ! 
MOVELINE (EDTSS$L_LNO_BIG, EDTSS$L_WK_STARTNO); 


+ 
Now resequence the range. 


EDTSSRSEQ (EDTSSL_WK_INSCNT, EDTSSL_WK -STARTNO, INC) 
END; ! of routine EDTSSEND_INS 


' 
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-TITLE EDTSWFENDINS serous END Ee - end of a series of 
; nserts 
-IDENT \V04-000\ 
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.EXTRN EDTSS$RD_PRVLN, EDTSS$RD_CURLN 
SEXTRN EDTS$RSEQ, EDTS$L_LNO_BIG 
-EXTRN DTS “INSCNT 
-EXTRN EDTSS$L—WK-NXTLNO 
-EXTRN EDTS$$L~WK~STARTNO 
eEXTRN po Taal “LNO_ZERO 
-EXTRN EDTSS$L-LNOO 
.PSECT _EDTSCODE, NOWRT, SHR, PIC,2 
OFFC 00000 ENTRY EDTSSEND_ INS, Save R2,R3,R4,R5,R6, R?, RB,R9,-; 0661 
B 00 000 MOVAB eDYSaL, _LNOO+30, R11 \ Gane : 
A 00 000 MOVAB LOW ; 
0 AB {_WK_STARTNO, R9 : 
SP : 


| 
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EDTSWFENDINS EDTSWFENDINS = end of a series of inserts 16-Sep-1984 206: VAX-11 Bliss-32 V4.0-74 
Oa 000 EDTSSEND_INS = end a series of inserts 1o=88=13Re 95:98:19 NIEKSVMEHASTERSCEDT SRCTWFENDINS .OLIed 2" (38 
6A 000000006 00 D4 OO1A cup Ov.t, LOw_2 : 0730 
04 AA 000000006 of 3 CMP HIGH.1, HIGH_2 : 
04 D RET : 
000000006 00 0 F p 1$: CALLS #0, EDTS$RD_CURLN : 0735 
18 AE Mantddittts 8 o3 i § moves #6. EDT$$L_CNO ZERO, INC : O72 
000000006 00 FB 0 E 2$: CALLS #0, EDTS$RB_PRULN t 0740 
18 A 0g 4 INCL FIRST_LWORD : 0741 
03 1 43 BNEQ 35 : 
1c AE 86 4A INCW  NEXT_WORD : 
51 6A D 4p 3$ MOVL LOW_2, R1 + 0743 
1 18 AE D1 0005 CMPL LOW * RI : 
EB 12 0094 BNEG $ : 
04 AA 1c = AE. «BY (00056 CMPW  HIGH_1, HIGH_2 ; 
E1 12 00058 BNEQ 2$ ; 
50 26 AE BO 9005D MOVW  UPPER_WORD, SAVE + 0749 
20 AE 000000006 00 6 C3 00061 SUBL3 EDTSS$C_WK_STARTNO, EDTSSL_WK_NXTLNO, DIF; 
24 AE 000000006 00 »bd 90008 MOVL EDTSS$L“WK"NXTLNO+4, DIF : 
24 AE 04 Ad D9 900 g SBWC 3s ED SSL WK™STARTNO+4, DIF : 
26 =A 50 BO 0007 MOVW SAVE, OPPER_WORD : 
58 20 AE D0 90078 MOVL LOW_{, RB + 0754 
000000006 00 3 D4 0007F CPL RB, LOw_2 : 
000000006 00 24 AE 8 00088 CMP HIGH.1, HIGH_2 ; 
18 AE 6B 6 § 0009¢ MOVC3 #6, EDTS$S$L_LNOO+30, INC + 0756 
E 11 0009 BRB 1 : 
10 AE 01 Al 9E 00099 4$: MOVAB 1(R1), FIRST_WORD : 0762 
50 04 AA 3C 0009 MOVZWL SOURCE _2HI, RO : 
10 AE 05 OOOA TSTL FIRST_QORD ; 
07 12 000A BNEQ 5$ : 
16 AE 50 01 Al 000A7 ADDW3 #1, RO, NEXT_WORD : 
04 11 OOOAC BRB 6$ : 
14 AE 0 BO OOOAE S$: MOVW RO, NEXT_WORD : 
24 «AE 14 AE B1 000B2 6$: CMPW  HIGH_1, RIGH_2 + 0764 
08 iF 0008 BLSSU 7$ : 
11 12 00089 BNEQ 9$ ; 
58 10 AE D1 000BB CMPL OW_1, R8 : 
05 1€ OOOBF BGEQU : 
50 01 CE 000C1 7$ MNEGL #1, RO : 
9 11 O0¢4 BRB 10$ : 
4 12 00 C6 8$ BNEQ 9$ : 
9 ps ¢ CLRL RO : 
1 OOOCA BRB 10$ : 
50 1D CC 9$: MOVL #1, RO F 
08 1 0 CF 10$:  BLEQ  12$ : 
18 AE E2 AB ‘ D1 MOVC3 #6, EDTSS$L_LNOO, INC > 0766 
6A 11 00007 11$: BRB 218 ; 
18 AE 68 06 ¢8 D9 12$:  MOVC3 #6, EDTS$L_LNOO+30, INC > 0769 
5 14 Ha 3 es rt gt tseGnss. R7 : 0778 
8 AE 10 AE D E4 13$ MOVL DIVIS R, M2 F 
C AE 5 p 9 MOVL R7, M244 ; 
éF ED CLRO OP : 
50 p EF MOVL #16, 1 : 
6E 6E 01 OOF2 14$ ASHO =-s«#'1, P, P : 
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a | 
VOurOOD NS EBISSENDUINS. ="cnd’a series’of inserts.” ifs 3 158e 13:58:51 DISKSVNGMASTER CED? SRC SWFENDINS.BLITTo a 
; ace ost 1 END ! of module EDTSWFENDINS 
: 6 12 0 eLupom | 

| 
: PScCT SUMMARY 
; Name Bytes Attributes 
;  EDTSCODE 437 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
Library Statistics 
weecee== Symbols -------- Pages Processing 
File Total Loaded Percent Mapped Time 


BES sSDUASB: LED -SRCJPSECTS<C 32:1 oa "i ” eee 00:00:4 


: COMMAND QUALIFIERS 
BL PESPCHECKOCE FELD, EET IAL -GPT IRLEE) /NOTRACEBACKAL 1504, ISS: UF END INS /OBJ=OBIS 5 END INS MSRC$:WFENDINS.BLI/UPDATE=(ENHS:WFEN 


+ 0 data bytes 


Used: 193 pages 


Compilation: Complete 
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